home *** CD-ROM | disk | FTP | other *** search
/ Amiga Format CD 43 / Amiga Format CD43 (1999)(Future Publishing)(GB)(Track 1 of 2)[!][issue 1999-09].iso / -serious- / graphics / fxforge / kang / squaresville < prev    next >
Text File  |  1999-06-15  |  671b  |  29 lines
  1. Category: kang
  2. Title: Squaresville
  3. Copyright: na
  4. Author: kangaroo@asan.com
  5. Filename: SQRVILLE.8BF
  6.  
  7. R:put(dif(sin(x*x),sin(y*y)-7*(min(cos(x+ctl(0)*x)-val(3,-800,2000),cos(y+ctl(1)*y)-val(3,-800,2000))*val(2,70,500)))/100,1),put(get(1)*255/22/255,0),get(0)&256?355+ctl(5)-(get(0)&511):get(0)+c-ctl(4)
  8.  
  9. G:put(get(1)*255/22/255,0),get(0)&256?355+ctl(5)-(get(0)&511):get(0)+c-ctl(4)
  10.  
  11. B:put(get(1)*255/22/255,0),get(0)&256?355+ctl(5)-(get(0)&511):get(0)+c-ctl(4)
  12.  
  13. A:a
  14.  
  15. ctl[0]: x-size
  16. ctl[1]: y-size
  17. ctl[2]: square type 1
  18. ctl[3]: square type 2
  19. ctl[4]: screen 
  20. ctl[5]: black<>white
  21.  
  22. val[0]: 16
  23. val[1]: 16
  24. val[2]: 88
  25. val[3]: 90
  26. val[4]: 83
  27. val[5]: 93
  28.  
  29.